home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / nekodemo / main / shared.dir / 00301.ls next >
Encoding:
Text File  |  1995-06-01  |  2.8 KB  |  81 lines
  1. on startMovie
  2. end
  3.  
  4. on stopMovie
  5.   unLoadCast()
  6.   sound stop 1
  7. end
  8.  
  9. on playcdda
  10.   global gcdaudio, gmusictruck
  11.   set gcdaudio to opencdda()
  12.   set len to mgettracklength(gcdaudio, gmusictruck)
  13.   set the timeoutLength to len / 75 * 60
  14.   mplayloop(gcdaudio, [gmusictruck, 0])
  15. end
  16.  
  17. on stopcdaudio
  18.   global gcdaudio
  19.   mpause(gcdaudio)
  20.   mcancelloop(gcdaudio)
  21.   repeat while mreadstatus(gcdaudio) = 1
  22.   end repeat
  23.   mdispose(gcdaudio)
  24. end
  25.  
  26. on initkpanlist
  27.   global thekpanlist
  28.   set thestamplist to EMPTY
  29.   set thekpanlist to "01INTRO_,                ,@::RTRV:02MENU__,1" & RETURN
  30.   put "03MOMO__,@::RTRV:RTRV0300,@::RTRV:02MENU__,3" & RETURN after thekpanlist
  31.   put "04YONONK,@::RTRV:RTRV0400,@::RTRV:02MENU__,4" & RETURN after thekpanlist
  32.   put "05ONAJI_,@::RTRV:RTRV0500,@::RTRV:02MENU__,5" & RETURN after thekpanlist
  33.   put "06YOKITM,@::RTRV:RTRV0600,@::RTRV:02MENU__,6" & RETURN after thekpanlist
  34.   put "07UTATAN,@::RTRV:RTRV0700,@::RTRV:02MENU__,7" & RETURN after thekpanlist
  35.   put "08MONOOM,@::RTRV:RTRV0800,@::RTRV:02MENU__,8" & RETURN after thekpanlist
  36.   put "09TURIAG,@::RTRV:RTRV0900,@::RTRV:02MENU__,9" & RETURN after thekpanlist
  37.   put "10KOGOTO,@::RTRV:RTRV1000,@::RTRV:02MENU__,10" & RETURN after thekpanlist
  38.   put "11NOZARS,@::RTRV:RTRV1100,@::RTRV:02MENU__,11" & RETURN after thekpanlist
  39.   put "12KOCHI_,@::RTRV:RTRV1200,@::RTRV:02MENU__,12" & RETURN after thekpanlist
  40.   put "13URIHAM,@::RTRV:RTRV1300,@::RTRV:02MENU__,13" & RETURN after thekpanlist
  41.   put "14IROHA_,@::RTRV:RTRV1400,@::RTRV:02MENU__,14" & RETURN after thekpanlist
  42.   put "15TUKIWO,@::RTRV:RTRV1500,@::RTRV:02MENU__,15" & RETURN after thekpanlist
  43.   put "16TUINI_,@::RTRV:RTRV1600,@::RTRV:02MENU__,16" & RETURN after thekpanlist
  44.   put "17OUJYOU,@::RTRV:RTRV1700,@::RTRV:02MENU__,17" & RETURN after thekpanlist
  45.   put "RTRV0300,                ,@::PCBK:03MOMO__,18" & RETURN after thekpanlist
  46. end
  47.  
  48. on getkpanlistdata
  49.   global thekpanlist, gnextmovie, gprevmovie, grtrvmovie, grtrnmovie, gmusictruck
  50.   set amovie to the movie
  51.   repeat with i = 1 to 19
  52.     set checkLine to line i of thekpanlist
  53.     set amovie2 to item 1 of checkLine
  54.     if amovie = amovie2 then
  55.       set grtrvmovie to item 2 of checkLine
  56.       set grtrnmovie to item 3 of checkLine
  57.       set amusictruck to item 4 of checkLine
  58.       set gmusictruck to value(amusictruck) + 1
  59.       set checkLine to line i - 1 of thekpanlist
  60.       set gprevmovie to item 1 of checkLine
  61.       set checkLine to line i + 1 of thekpanlist
  62.       set gnextmovie to item 1 of checkLine
  63.       exit
  64.     end if
  65.   end repeat
  66. end
  67.  
  68. on waitticks atickcount
  69.   set theendtime to ticks() + atickcount
  70.   repeat while ticks() < theendtime
  71.     nothing()
  72.   end repeat
  73. end
  74.  
  75. on disablebuttons
  76.   set the visible of sprite 30 to 0
  77.   set the visible of sprite 31 to 0
  78.   set the visible of sprite 32 to 0
  79.   set the visible of sprite 33 to 0
  80. end
  81.